home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / 3DVECT30.ZIP;1 / QB.ZIP / PATHAG.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-10-16  |  862 b   |  41 lines
  1. DECLARE FUNCTION c$ (qq!)
  2. b$ = "  db "
  3. r$ = ","
  4.  
  5. y = 128
  6. x = INT(y * COS(3.141592 / 4))
  7.  
  8. t = x * y
  9.  
  10. PRINT ";Total table length:"; t; ",Table size:"; y; "*"; x
  11. PRINT ";Maximum Radius of Circle to Fit Inside Table:"; y
  12. PRINT
  13.  
  14. DIM x(x * y + y)
  15.  
  16. FOR u = 0 TO x - 1
  17.  FOR v = 0 TO y - 1
  18.   x(u * y + v) = INT(SQR(u ^ 2 + v ^ 2) + .5)
  19.  NEXT v
  20. NEXT u
  21.  
  22.  PRINT b$;
  23.  
  24.  FOR z = 0 TO t - 1 STEP 16
  25.  
  26.      PRINT c$(x(z)); r$; c$(x(z + 1)); r$; c$(x(z + 2)); r$; c$(x(z + 3)); r$; c$(x(z + 4)); r$;
  27.      PRINT c$(x(z + 5)); r$; c$(x(z + 6)); r$; c$(x(z + 7)); r$;
  28.      PRINT c$(x(z + 8)); r$; c$(x(z + 9)); r$; c$(x(z + 10)); r$; c$(x(z + 11)); r$; c$(x(z + 12)); r$;
  29.      PRINT c$(x(z + 13)); r$; c$(x(z + 14)); r$; c$(x(z + 15))
  30.  
  31.      IF z < t - 16 THEN PRINT b$;
  32.  
  33.  NEXT z
  34.  
  35. FUNCTION c$ (qq)
  36.  
  37.  c$ = LTRIM$(RTRIM$(STR$(qq)))
  38.  
  39. END FUNCTION
  40.  
  41.